home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 102 / programs / gemdate.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-01-25  |  3.1 KB  |  70 lines
  1.  
  2. /* constant black pallet-date program accessory ; prepared 20Jan'87 CJPurcell*/
  3. /* reference "Ein Wecker im ST" - "An ST_Alarm"
  4.    extracted from ST Computer,Nr 10 ,pp. 36-38 ,1986;
  5.    pub. in Germany in German. Works with MWC 12 Oct86-CJP with corrections!  */
  6.  
  7. /* The accessory build is found in the new version of MWC using -VGEMACC opt */
  8.  
  9. #include <osbind.h>                       /* system constants  */
  10. #include <gemdefs.h>                      /*  GEM-definition   */
  11. #include <obdefs.h>                       /* object definition */
  12.  
  13. int  contrl[12],intin[128],intout[128],ptsin[128],ptsout[128];
  14. extern int gl_apid;                                 /* AES processor call    */
  15.                                 /* bei,i.e.for, GST:  extern short gl_apid;  */
  16. #define RC_COORDS    2
  17. /*
  18. short green[]  = {  0x676,0x601,0x051,0x001,0x777,0x700,0x070,0x770,
  19.                     0x007,0x707,0x077,0x555,0x333,0x733,0x373,0x773     };   */
  20. main()
  21. {
  22.         register unsigned long zeit;            /* for MWC: time   variable  */
  23.         static   char  tag[] = "20/01/87" ;     /* static  day               */
  24. /* needs date in centered      "dd/mm/yy"     for lowres static day display  */
  25. /* needs adjustment for lowres colors as well as white background on mono    */
  26.         register char     zr;
  27.         short    zh,vn,h,ii,in[11],aus_0,aus_1,aus[57];
  28.  
  29.         appl_init();
  30.  
  31.         vn = graf_handle(&h,&zh,&h,&h) ;        zh -= 2 ;
  32.         for( ii = 0 ; ii < 10 ;  ++ ii ) in [ii] = 1 ;    /* init in array */
  33.         in[10]  = RC_COORDS ;
  34.         v_opnvwk(in,&vn,aus);
  35.         aus_0 =     aus [0] ;
  36.         aus_0 =      aus_0   >> 1  ;
  37. /*        aus_0 =      aus_0  + ( aus [0] >> 3 ) ;                         */
  38.         aus_1 =     aus [1]  ;
  39.         aus_1 =     aus_1    >> 5  ;
  40.         vst_color(vn,1);
  41.         menu_register(gl_apid,"  ST GEM-DATE " ) ;
  42.  
  43. /* consider initializing the printer here, ala epset or setprt from MWC    */
  44.  
  45.         zeit = Gettime()>>5;
  46.         zeit >>= 6 ;
  47.         zeit >>= 5 ;                                        /* day count   */
  48.         zr = ((char)zeit) & 0x1f;
  49.         tag[ 3] = zr / 10 + '0';
  50.         tag[ 4] = zr % 10 + '0';                           /* American day */
  51.         zeit >>= 5;                                        /* month count  */
  52.         zr = ((char)zeit) & 0xf;
  53.         tag[ 0] = zr / 10 + '0';
  54.         tag[ 1] = zr % 10 + '0';                         /* American month */
  55.         zr = ((char)((zeit >> 4) + 80L) % 100) & 0x7f;
  56.         tag[ 6] = zr / 10 + '0';                           /* year  count  */
  57.         tag[ 7] = zr % 10 + '0';
  58.  
  59.         while(1)          /*  DO FOREVER  'til the next autoboot............*/
  60.         {
  61. /*               Setpallete(green);                       / *...set,reset...*/
  62.  
  63.                 v_gtext( vn , aus_0 , aus_1 , tag ) ;     /* today, forever.*/
  64.                                                           /* tick = 10000ms.*/
  65.                 evnt_multi(MU_TIMER       ,
  66.                      0,0,0,0,0,0,0,0,0,0,0,0,0,aus,10000,0,&h,&h,&h,&h,&h,&h);
  67.         }
  68. }                            /* hide, but stay resident..........forever....*/
  69.  
  70.